home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 4 / ETO Development Tools 4.iso / Tools - Objects / Virtual User 1.0 / Example Scripts / HierarchicalExample.vu < prev    next >
Text File  |  1991-01-25  |  2KB  |  75 lines
  1. #
  2. #    File         HierarchicalExample.vu 
  3. #
  4. #    Contains:    An example of selecting menuitems which belong to submenus
  5. #                Prerequisite : AppleLink application with Help enabled (should
  6. #                have the help file) should be launched and be the frontmost app.
  7. #                Get rid of the login dialog, either by logging in or Working off
  8. #                line.                
  9. #
  10. #    Conventions:    Global variables begin with a capital letter
  11. #
  12. #    Written by:    P Nagarajan
  13. #
  14. #    Copyright:    © 1990 by Apple Computer, Inc., all rights reserved.
  15. #
  16. #    Change History:
  17. #
  18. #        2/21/90       naga         creation 
  19. #        1/08/91       Rick         modified to run with either AppleLink 5.11 or 6.0 
  20. #
  21.  
  22.  
  23. ####
  24. # First make sure if the target is configured right
  25. match[application t:?app_name]!;
  26. if not (app_name ~= /AppleLink≈/) 
  27. begin
  28.     println "This script requires Apple Link to be the frontmost application";
  29.     exit;
  30. end; #check if Apple Link is running
  31.  
  32. if not (match [menuItem t:'Help' e:true m:[menu o:1]]!)
  33. begin
  34.     println "Your Apple Link does not have Help installed";
  35.     println "Please try installing Help file into AppleLink folder and try again";
  36.     exit;
  37. end;# check if Help menuitem is enabled
  38.  
  39. if (match [window s:dialog o:1]!)
  40. begin
  41.     if (match[button t:'Work off line' w:[window o:1]]!)
  42.         select [button t:'Work off line' w:[window o:1]]!;
  43.     else 
  44.     begin
  45.         println "Sorry cannot get rid of the dialog";
  46.         exit;
  47.     end;
  48. end; #Check if there is a dialog up on the front(maybe Connect/Login dialog)
  49.  
  50. ####
  51. # Now do some menu item selections
  52. select [menuItem t:/≈New Memo≈/ 
  53.                  m:[menuItem t:'Working With Memos' 
  54.                               m:[menuItem t:'Help' m:[menu o:1]]]]!;
  55.  
  56. ####
  57. # The following two statements will also work but are not as efficient
  58. select [menuItem t:/≈New Memo≈/ 
  59.                  m:[menuItem t:'Working With Memos']]!;
  60.  
  61. ####
  62. # This statement is least efficient
  63. select [menuItem t:/≈New Memo≈/]!; 
  64.  
  65. ####
  66. # Now some matching:
  67. match [menuItem t:?item_title 
  68.                 h:{ [menuItem t:'Introduction'],
  69.                     [menuItem t:/Using≈/]}]!;
  70.  
  71. # This match takes a lot of time, since there are a lot of submenus and a lot
  72. # of items in each. Hence avoid giving the 'h:' trait if possible in your scripts.
  73. # Here we used it as an illustration of its utility.
  74.  
  75. println item_title;